home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS073.dsk / APPLE HORSE (C).int next >
Text File  |  2012-02-16  |  17KB  |  372 lines
  1. 0 REM  COPYRIGHT BY DANIEL E. MINARDI
  2. 1 GR :COLOR= 12:HLIN 2,6 AT 2:VLIN 3,13 AT 2:VLIN 3,13 AT 6:HLIN 3,5 AT 7
  3. 2 COLOR= 13:HLIN 9,12 AT 2:HLIN 9,12 AT 7:VLIN 2,13 AT 8:VLIN 3,6 AT 12
  4. 3 COLOR= 9:HLIN 15,18 AT 2:HLIN 15,18 AT 7:VLIN 2,13 AT 14:VLIN 3,6 AT 18
  5. 4 COLOR= 1:VLIN 2,13 AT 20:HLIN 21,24 AT 13
  6. 5 COLOR= 3:HLIN 26,29 AT 2:HLIN 26,28 AT 8:HLIN 26,30 AT 13:VLIN 2,13 AT 26
  7. 6 COLOR= 2:VLIN 18,29 AT 8:VLIN 18,29 AT 12:HLIN 9,11 AT 23
  8. 7 VLIN 18,29 AT 14:VLIN 18,29 AT 18:HLIN 15,17 AT 18:HLIN 15,17 AT 29
  9. 8 HLIN 21,24 AT 18:HLIN 21,24 AT 23:VLIN 18,29 AT 20:VLIN 18,22 AT 24:PLOT 22,24:PLOT 23,25:PLOT 23,26:VLIN 27,29 AT 24
  10. 9 HLIN 26,30 AT 18:HLIN 26,30 AT 23:HLIN 26,30 AT 29:VLIN 18,23 AT 26:VLIN 23,29 AT 30
  11. 10 VLIN 18,29 AT 32:HLIN 32,35 AT 18:HLIN 32,34 AT 23:HLIN 32,36 AT 29
  12. 11 CALL -936
  13. 12 PRINT "        COPYRIGHT  (C) DEC.79":PRINT "        DANNY MINARDI"
  14. 14 PRINT "   DONATED TO APPLE PI - JULY, 1980"
  15. 18 FOR I=1 TO 1750:NEXT I
  16. 19 REM  START OF GAME
  17. 20 DIM BLU$(75),A$(75),RED$(75):RT=0:BT=0:BS=0:RS=0:BB=0:AA=0:T=4: POKE -16368,0:TEXT :CALL -936
  18. 21  POKE -16368,0
  19. 23 VTAB (12):PRINT "WOULD YOU LIKE THE INSTRUCTIONS ?":IF  PEEK (-16384)=217 THEN 15000:IF  PEEK (-16384)=206 THEN 6000: POKE -16368,0:GOTO 23
  20. 24 TEXT :CALL -936:GR : POKE -16302,0
  21. 25 COLOR= 0:FOR I=40 TO 47:HLIN 0,39 AT I:NEXT I
  22. 26 COLOR= 7:PLOT 35,33:PLOT 36,26
  23. 27 COLOR= 15:HLIN 0,39 AT 47:VLIN 31,46 AT 38:PLOT 37,31:VLIN 27,34 AT 36
  24. 35 COLOR= 6:HLIN 33,34 AT 33:COLOR= 11:PLOT 33,34:PLOT 34,34:PLOT 33,35:PLOT 34,35
  25. 50 D=295:YT=3:GOTO 53
  26. 52 FOR I=1 TO 75:II= PEEK (-16336):NEXT I:IF BB=0 THEN 8030:GOTO 30000
  27. 53 IF T#BT THEN 55:GOSUB 2000:GOTO 69
  28. 55 COLOR= 0:PLOT ZX,ZY
  29. 58 ZX=T:ZY=40:T=PDL (0)/7-7:IF T>255 THEN T=255:IF T<4 THEN T=4:COLOR= 9:PLOT ZX,ZY
  30. 59 B=T
  31. 60 IF RZX=T THEN T=T+1
  32. 65 FOR I=1 TO 15:NEXT I
  33. 67 IF  PEEK (-16287)<=128 THEN 55
  34. 68 RZX=T
  35. 69 RT=0
  36. 70 COLOR= 9:PLOT ZX,ZY
  37. 71 COLOR= 8:PLOT ZX-3,ZY-3:PLOT ZX-3,ZY-4:PLOT ZX-2,ZY-4:COLOR= 15:PLOT ZX-2,ZY-3:PLOT ZX-2,ZY-2:PLOT ZX-3,ZY-2
  38. 72 COLOR= 1:VLIN ZY-1,ZY+5 AT ZX-3:COLOR= 15:PLOT ZX-3,ZY+6:PLOT ZX-2,ZY+6:COLOR= 1:PLOT ZX-2,ZY
  39. 73 COLOR= 15:PLOT ZX-1,ZY:COLOR= 9:
  40. 75 PLOT ZX,ZY
  41. 99 FOR I=1 TO 250:NEXT I
  42. 100 AG=PDL (0)+19
  43. 101 IF  PEEK (-16287)<=128 THEN 100
  44. 102 COLOR= 15:PLOT ZX-1,ZY+1:COLOR= 9:PLOT ZX,ZY+1:COLOR= 0:PLOT ZX-1,ZY:PLOT ZX,ZY
  45. 103 FOR DEA=1 TO 35:NEXT DEA:COLOR= 9:PLOT ZX,ZY+2:COLOR= 0:PLOT ZX,ZY+1
  46. 104 FOR DEA=1 TO 45:NEXT DEA:COLOR= 9:PLOT ZX,ZY+1:COLOR= 0:PLOT ZX,ZY+2
  47. 105 FOR DEA=1 TO 30:NEXT DEA:COLOR= 15:PLOT ZX-1,ZY:COLOR= 9:PLOT ZX,ZY:COLOR= 0:PLOT ZX-1,ZY+1:PLOT ZX,ZY+1
  48. 110 XR=5:YR=D*39:XP=0:YP=39:X=AG+3:Y=255-AG
  49. 119 REM  BALL MOVING & BEING CHECKED
  50. 120 XR=XR+X:YR=YR-Y:Y=Y-YT:COLOR= 0:PLOT ZX,ZY:PLOT XP,YP:XP=XR/D+T:YP=YR/D:IF XP>39 OR YP>46 THEN 52
  51. 500 IF  SCRN(XP,YP)=6 THEN 503:GOTO 510
  52. 503 AA=1
  53. 504 IF BB=1 THEN 506:ZY=40:T=BT:GOTO 8030
  54. 506 AA=0:BB=0:GOTO 8030
  55. 510 IF XP=36 AND YP=33 THEN 1500
  56. 515 IF  SCRN(XP,YP)=15 THEN 1000
  57. 520 IF  SCRN(XP,YP)=7 THEN 1500
  58. 525 IF  SCRN(XP,YP)=11 THEN 52
  59. 528 COLOR= 9:PLOT XP,YP:GOTO 120
  60. 1000 Q=50:N=1:T=0
  61. 1003 XP=XP-1
  62. 1010 IF YP+N-T<1 THEN 52
  63. 1020 IF YP+N-T>46 THEN 52
  64. 1030 IF XP>38 THEN 52
  65. 1040 IF  SCRN(XP,YP+N-T)#6 THEN 1045:GOTO 503
  66. 1045 IF  SCRN(XP,YP+N-T)#11 THEN 1050:GOTO 503
  67. 1050 IF  SCRN(XP,YP+N-T)=7 THEN 1500
  68. 1060 COLOR= 9
  69. 1070 N=N+1:T=T+1:Q=Q-10
  70. 1100 XP=XP- RND (2):YP=YP+N-T
  71. 1105 IF YP>46 THEN 52
  72. 1106 IF XP>38 THEN 52
  73. 1110 PLOT XP,YP
  74. 1120 FOR DELAY=1 TO Q:NEXT DELAY
  75. 1130 COLOR= 0
  76. 1140 PLOT XP,YP
  77. 1150 GOTO 1010
  78. 1500 N=2:T=0:Q=30
  79. 1510 FOR I=1 TO 4
  80. 1525 XP=XP- RND (2):YP=YP-N+T
  81. 1580 IF YP<1 THEN 52
  82. 1590 IF YP>46 THEN 52
  83. 1600 IF XP>38 THEN 52
  84. 1645 COLOR= 9
  85. 1650 PLOT XP,YP
  86. 1651 FOR DELAY=1 TO Q:NEXT DELAY
  87. 1652 COLOR= 0
  88. 1653 PLOT XP,YP
  89. 1654 N=N+1:T=T+1:Q=Q+10
  90. 1660 NEXT I
  91. 1670 N=2:T=0
  92. 1682 COLOR= 9
  93. 1683 PLOT XP,YP
  94. 1684 FOR DELAY=1 TO 45:NEXT DELAY
  95. 1685 COLOR= 0:PLOT XP,YP
  96. 1686 FOR I=1 TO 2
  97. 1687 COLOR= 9
  98. 1688 PLOT XP-1,YP
  99. 1689 FOR DELAY=1 TO 55:NEXT DELAY
  100. 1690 COLOR= 0
  101. 1691 PLOT XP-1,YP
  102. 1695 XP=XP-1
  103. 1696 NEXT I
  104. 1700 Q=60
  105. 1780 IF YP+N-T<1 THEN 52
  106. 1790 IF YP+N-T>46 THEN 52
  107. 1800 IF XP>38 THEN 52
  108. 1802 IF  SCRN(XP,YP+N-T)#6 THEN 1830
  109. 1803 AA=1
  110. 1804 IF BB=1 THEN 1806:ZY=40:RT=T:GOTO 8030
  111. 1806 AA=0:BB=0:GOTO 8030
  112. 1830 IF  SCRN(XP,YP)=7 THEN 1500
  113. 1835 IF  SCRN(XP,YP)#0 THEN 52
  114. 1845 COLOR= 9
  115. 1846 N=N+1:T=T+1:Q=Q-5
  116. 1849 XP=XP- RND (2):YP=YP+N-T
  117. 1850 PLOT XP,YP
  118. 1851 FOR DELAY=1 TO Q:NEXT DELAY
  119. 1852 COLOR= 0
  120. 1853 PLOT XP,YP
  121. 1860 GOTO 1780
  122. 2000 T=B:D=295:YT=3:RETURN 
  123. 6000  POKE -16368,0:CALL -936
  124. 6010 VTAB (9):PRINT "WHO IS GOING T0 BE THE RED PLAYER ?":PRINT :INPUT RED$
  125. 6015 VTAB (16):PRINT "WHO IS GOING TO BE THE BLUE PLAYER ?":PRINT :INPUT BLU$
  126. 6020 CALL -936:VTAB (12):PRINT "WHAT WORD ARE YOU GOING TO USE TO PLAY  THE GAME WITH ?"
  127. 6025 PRINT "EXAMPLE: HORSE, PIG, CAMEL, TRS 80, PET,ATARI  ETC......."
  128. 6027 VTAB (13):TAB (17):INPUT A$
  129. 6029 GOTO 20000
  130. 6030 TEXT :CALL -936
  131. 6035 VTAB (3):TAB (9):PRINT "GAME WORD - ";: POKE 50,63:PRINT A$
  132. 6040 VTAB (12):PRINT " RED PLAYER":VTAB (13):PRINT " ";RED$;" -"
  133. 6041 VTAB (14):PRINT " PDL(0)"
  134. 6042  POKE 50,255
  135. 6044 VTAB (18):PRINT " PDL(1)"
  136. 6045 VTAB (20):PRINT " BLUE PLAYER":VTAB (19):PRINT " ";BLU$;" -"
  137. 6050 VTAB (16):TAB (19):PRINT "LETTERS ACCUMULATED"
  138. 6900 VTAB (13):TAB (21): POKE 50,63:PRINT A$(1,RS):VTAB (19):TAB (21):PRINT A$(1,BS): POKE 50,255
  139. 6951 IF A$=A$(1,BS) THEN 17000
  140. 6990 VTAB (24):PRINT "  WHEN YOU ARE READY PRESS BUTTON (0)"
  141. 6991 IF  PEEK (-16287)>127 THEN 6999:GOTO 6991
  142. 6999 GOTO 24
  143. 8030 TEXT :CALL -936
  144. 8035 VTAB (3):TAB (9):PRINT "GAME WORD - ";: POKE 50,63:PRINT A$: POKE 50,255
  145. 8040 VTAB (12):PRINT " RED PLAYER":VTAB (13):PRINT " ";RED$;" -"
  146. 8041 VTAB (14):PRINT " PDL(0)"
  147. 8042  POKE 50,63
  148. 8044 VTAB (18):PRINT " PDL(1)"
  149. 8045 VTAB (20):PRINT " BLUE PLAYER":VTAB (19):PRINT " ";BLU$;" -"
  150. 8047  POKE 50,255
  151. 8050 VTAB (16):TAB (19):PRINT "LETTERS ACCUMULATED"
  152. 8900 VTAB (13):TAB (21): POKE 50,63:PRINT A$(1,RS):VTAB (19):TAB (21):PRINT A$(1,BS): POKE 50,255
  153. 8951 IF A$=A$(1,RS) THEN 18000
  154. 8990 VTAB (24):PRINT "  WHEN YOU ARE READY PRESS BUTTON (1)"
  155. 8991 IF  PEEK (-16286)>127 THEN 8999:GOTO 8991
  156. 8999 GOTO 10000
  157. 10000 TEXT :CALL -936:GR 
  158. 10009  POKE -16302,0
  159. 10010 COLOR= 0:FOR I=40 TO 47:HLIN 0,39 AT I:NEXT I
  160. 10011 COLOR= 7
  161. 10012 PLOT 35,33:PLOT 36,26
  162. 10027 COLOR= 15:HLIN 0,39 AT 47:VLIN 31,46 AT 38:PLOT 37,31:VLIN 27,34 AT 36
  163. 10035 COLOR= 6:HLIN 33,34 AT 33:COLOR= 11:PLOT 33,34:PLOT 34,34:PLOT 33,35:PLOT 34,35
  164. 10049 F=0
  165. 10050 D=295:YT=3:GOTO 10053
  166. 10052 FOR I=1 TO 75:II= PEEK (-16336):NEXT I:IF AA=0 THEN 6030:GOTO 30020
  167. 10053 IF T#RT THEN 10055:GOSUB 2000:GOTO 10069
  168. 10055 COLOR= 0:PLOT ZX,ZY
  169. 10058 ZX=T:ZY=40:T=PDL (1)/7-7:IF T>255 THEN T=255:IF T<4 THEN T=4:COLOR= 9:PLOT ZX,ZY
  170. 10059 B=T
  171. 10060 IF BZX=T THEN T=T+1
  172. 10065 FOR I=1 TO 15:NEXT I
  173. 10067 IF  PEEK (-16286)<=128 THEN 10055
  174. 10068 BZX=T
  175. 10069 BT=0
  176. 10070 COLOR= 9:PLOT ZX,ZY
  177. 10071 COLOR= 8:PLOT ZX-3,ZY-3:PLOT ZX-3,ZY-4:PLOT ZX-2,ZY-4:COLOR= 15:PLOT ZX-2,ZY-3:PLOT ZX-2,ZY-2:PLOT ZX-3,ZY-2
  178. 10072 COLOR= 2:VLIN ZY-1,ZY+5 AT ZX-3:COLOR= 15:PLOT ZX-3,ZY+6:PLOT ZX-2,ZY+6:COLOR= 2:PLOT ZX-2,ZY
  179. 10073 COLOR= 15:PLOT ZX-1,ZY:COLOR= 9
  180. 10075 PLOT ZX,ZY
  181. 10099 FOR I=1 TO 250:NEXT I
  182. 10100 AG=PDL (1)+19
  183. 10101 IF  PEEK (-16286)<=128 THEN 10100
  184. 10102 COLOR= 15:PLOT ZX-1,ZY+1:COLOR= 9:PLOT ZX,ZY+1:COLOR= 0:PLOT ZX-1,ZY:PLOT ZX,ZY
  185. 10103 FOR DEA=1 TO 35:NEXT DEA:COLOR= 9:PLOT ZX,ZY+2:COLOR= 0:PLOT ZX,ZY+1
  186. 10104 FOR DEA=1 TO 45:NEXT DEA:COLOR= 9:PLOT ZX,ZY+1:COLOR= 0:PLOT ZX,ZY+2
  187. 10105 FOR DEA=1 TO 30:NEXT DEA:COLOR= 15:PLOT ZX-1,ZY:COLOR= 9:PLOT ZX,ZY:COLOR= 0:PLOT ZX-1,ZY+1:PLOT ZX,ZY+1
  188. 10110 XR=5:YR=D*39:XP=0:YP=39:X=AG+3:Y=255-AG
  189. 10119 REM  BALL MOVING & BEING CHECKED
  190. 10120 XR=XR+X:YR=YR-Y:Y=Y-YT:COLOR= 0:PLOT ZX,ZY:PLOT XP,YP:XP=XR/D+T:YP=YR/D:IF XP>39 OR XP>46 THEN 52
  191. 10500 IF  SCRN(XP,YP)=6 THEN 10503:GOTO 10510
  192. 10503 BB=1
  193. 10504 IF AA=1 THEN 10506:ZY=40:T=RT:GOTO 6030
  194. 10506 BB=0:AA=0:GOTO 6030
  195. 10510 IF XP=36 AND YP=33 THEN 11500
  196. 10515 IF  SCRN(XP,YP)=15 THEN 11000
  197. 10520 IF  SCRN(XP,YP)=7 THEN 11500
  198. 10525 IF  SCRN(XP,YP)=11 THEN 10052
  199. 10528 COLOR= 9:PLOT XP,YP:GOTO 10120
  200. 11000 Q=50:N=1:T=0
  201. 11003 XP=XP-1
  202. 11010 IF YP+N-T<1 THEN 10052
  203. 11020 IF YP+N-T>46 THEN 10052
  204. 11030 IF XP>38 THEN 10052
  205. 11040 IF  SCRN(XP,YP)#6 THEN 11045:GOTO 10503
  206. 11045 IF  SCRN(XP,YP+N-T)#11 THEN 11050:GOTO 10503
  207. 11050 IF  SCRN(XP,YP+N-T)=7 THEN 11500
  208. 11060 COLOR= 9
  209. 11070 N=N+1:T=T+1:Q=Q-5
  210. 11100 XP=XP- RND (2):YP=YP+N-T
  211. 11105 IF YP>46 THEN 10052
  212. 11106 IF XP>38 THEN 10052
  213. 11110 PLOT XP,YP
  214. 11120 FOR DELAY=1 TO Q:NEXT DELAY
  215. 11130 COLOR= 0
  216. 11140 PLOT XP,YP
  217. 11150 GOTO 11010
  218. 11500 N=2:T=0:Q=30
  219. 11510 FOR I=1 TO 4
  220. 11525 XP=XP- RND (2):YP=YP-N+T
  221. 11580 IF YP<1 THEN 10052
  222. 11590 IF YP>46 THEN 10052
  223. 11600 IF XP>38 THEN 10052
  224. 11645 COLOR= 9
  225. 11650 PLOT XP,YP
  226. 11651 FOR DELAY=1 TO Q:NEXT DELAY
  227. 11652 COLOR= 0
  228. 11653 PLOT XP,YP
  229. 11654 N=N+1:T=T+1:Q=Q+5
  230. 11660 NEXT I
  231. 11670 N=2:T=0
  232. 11682 COLOR= 9
  233. 11683 PLOT XP,YP
  234. 11684 FOR DELAY=1 TO 45:NEXT DELAY
  235. 11685 COLOR= 0:PLOT XP,YP
  236. 11686 FOR I=1 TO 2
  237. 11687 COLOR= 9
  238. 11688 PLOT XP-1,YP
  239. 11689 FOR DELAY=1 TO 55:NEXT DELAY
  240. 11690 COLOR= 0
  241. 11691 PLOT XP-1,YP
  242. 11695 XP=XP-1
  243. 11696 NEXT I
  244. 11700 Q=60
  245. 11780 IF YP+N-T<1 THEN 10052
  246. 11790 IF YP+N-T>46 THEN 10052
  247. 11800 IF XP>38 THEN 10052
  248. 11802 IF  SCRN(XP,YP+N-T)#6 THEN 11830
  249. 11803 BB=1
  250. 11804 IF AA=1 THEN 11806:ZY=40:BT=T:GOTO 6030
  251. 11806 AA=0:BB=0:GOTO 6030
  252. 11830 IF  SCRN(XP,YP)=7 THEN 11500
  253. 11835 IF  SCRN(XP,YP)#0 THEN 10052
  254. 11845 COLOR= 9
  255. 11846 N=N+1:T=T+1:Q=Q-5
  256. 11849 XP=XP- RND (2):YP=YP+N-T
  257. 11850 PLOT XP,YP
  258. 11851 FOR DELAY=1 TO Q:NEXT DELAY
  259. 11852 COLOR= 0
  260. 11853 PLOT XP,YP
  261. 11860 GOTO 11780
  262. 15000  POKE -16368,0:CALL -936
  263. 15001 VTAB (2):TAB (15):PRINT "INSTRUCTIONS":VTAB (3):TAB (15):PRINT "------------"
  264. 15005 VTAB (5):PRINT " HORSE IS A VARIATION OF BASKETBALL.THE OBJECT OF THE GAME IS TO TRY AND GIVE"
  265. 15010 PRINT "YOUR OPPONENT LETTERS OF A WORD,UNTIL   HE OR SHE HAS COMPLETED THAT WORD."
  266. 15015 PRINT :PRINT " THE GAME IS VERY SIMPLE. YOU AND YOUR  OPPONENT TAKE TURNS SHOOTING THE BALL,"
  267. 15020 PRINT "WHEN ONE OF YOU MAKES IT THE OTHER MUST SHOOT IT FROM THAT SAME SPOT,IF HE OR"
  268. 15025 PRINT "SHE JUST HAPPENS TO MISS,A LETTER WOULD BE GIVEN TO THAT PERSON.THIS WOULD CON-"
  269. 15030 PRINT "TINUE UNTIL ONE OF YOU COMPLETED THE    WORD."
  270. 15035 VTAB (23):PRINT "        PRESS ANY KEY TO CONTINUE"
  271. 15040 IF  PEEK (-16384)<127 THEN 15040: POKE -16368,0
  272. 15045  POKE -16368,0:CALL -936
  273. 15050 VTAB (2):TAB (15):PRINT "INSTRUCTIONS":VTAB (3):TAB (15):PRINT "------------"
  274. 15055 VTAB (5):PRINT " THE FIRST THING THAT YOU WILL DECIDE   WILL BE WHAT WORD YOU ARE GOING TO USE"
  275. 15060 PRINT "TO PLAY THE GAME WITH,THEN RANDOMLY THE COMPUTER WILL PICK ONE OF YOU TO SHOOT"
  276. 15065 PRINT "FIRST.THE SCORE BOARD WILL THEN BE SHOWNAND WILL BE SHOWN AFTER EACH SHOT"
  277. 15070 PRINT "THROUGH THE INTIRETY OF THE GAME.":PRINT 
  278. 15075 PRINT " THE SCORE BOARD WILL SHOW THE GAME     WORD,PLAYERS AND HOW MANY LETTERS EACH"
  279. 15076 PRINT "OF THEM HAVE.THE GAME PADDLES WILL BE   NEEDED FROM THEN ON.THE PROPER PADDLE"
  280. 15077 PRINT "FOR YOU TO USE WILL BE INDICATED BY YOURNAME IN WHITE AND THE PADDLE NUMBER ON"
  281. 15078 PRINT "THE BOTTEM OF THE SCREEN."
  282. 15082 VTAB (23):PRINT "        PRESS ANY KEY TO CONTINUE"
  283. 15083 IF  PEEK (-16384)<127 THEN 15083: POKE -16368,0
  284. 15084  POKE -16368,0:CALL -936
  285. 15085 VTAB (2):TAB (15):PRINT "INSTRUCTIONS":VTAB (3):TAB (15):PRINT "------------"
  286. 15090 VTAB (5):PRINT " WHEN YOU ARE READY TO LEAVE THE SCORE  BOARD PRESS THE BUTTON ON YOUR PADDLE."
  287. 15095 PRINT "A LOW RESOLUTION GAME BOARD WILL APPEAR.BY MOVING YOUR GAME PADDLE YOUR ORANGE  BASKETBALL WILL MOVE HORIZONTAL."
  288. 15100 VTAB (9):TAB (33):PRINT "POSITIONTHE BALL WHERE YOU WOULD LIKE TO SHOOT  FROM.WHEN YOU ARE READY PRESS YOUR"
  289. 15105 PRINT "BUTTON.A LOW RESOLUTION BASKETBALL      PLAYER SHOULD NOW BE HOLDING THE BALL."
  290. 15110 PRINT "TO SHOOT THE BALL YOU MUST TURN THE     PADDLE FOR THE ANGLE OF THE BALL,AND    AGAIN PRESS THE BUTTON."
  291. 15115 PRINT :PRINT " DIAGRAMS ON THE NEXT TWO PAGES WILL    HELP YOU TO UNDERSTAND."
  292. 15120 VTAB (23):PRINT "        PRESS ANY KEY TO CONTINUE"
  293. 15125 IF  PEEK (-16384)<127 THEN 15125: POKE -16368,0
  294. 15130  POKE -16368,0:CALL -936
  295. 15135 VTAB (2):TAB (15):PRINT "INSTRUCTIONS":VTAB (3):TAB (15):PRINT "------------"
  296. 15137 VTAB (19):PRINT " IF YOU TURN YOUR PADDLE COUNTER CLOCK- WISE UNTIL IT STOPS,THE ARCH OF THE BALLWOULD LOOK LIKE THIS."
  297. 15139 VTAB (5):TAB (20):PRINT "***":VTAB (6):TAB (19):PRINT "*   *":VTAB (8):TAB (18):PRINT "*     *"
  298. 15140 VTAB (11):TAB (17):PRINT "*       *":VTAB (14):TAB (16):PRINT "*         *"
  299. 15142 VTAB (18):PRINT "----------------------------------------":VTAB (15):TAB (16):PRINT "^":VTAB (17):TAB (27):PRINT "*"
  300. 15155 VTAB (23):PRINT "        PRESS ANY KEY TO CONTINUE"
  301. 15160 IF  PEEK (-16384)<127 THEN 15160: POKE -16368,0
  302. 15165  POKE -16368,0:CALL -936
  303. 15170 VTAB (2):TAB (15):PRINT "INSTRUCTIONS":VTAB (3):TAB (15):PRINT "------------"
  304. 15172 VTAB (19):PRINT " IF YOU TURN YOUR PADDLE CLOCKWISE UNTILIT STOPS,THE ARCH OF THE BALL WOULD LOOKLIKE THIS."
  305. 15175 VTAB (18):PRINT "----------------------------------------":VTAB (15):TAB (10):PRINT "^":VTAB (17):TAB (34):PRINT "*"
  306. 15178 VTAB (15):TAB (11):PRINT "*  *     *":VTAB (16):TAB (26):PRINT "    *"
  307. 15190 VTAB (23):PRINT "        PRESS ANY KEY TO CONTINUE"
  308. 15195 IF  PEEK (-16384)<127 THEN 15195: POKE -16368,0
  309. 15200  POKE -16368,0:CALL -936
  310. 15205 VTAB (2):TAB (15):PRINT "INSTRUCTIONS":VTAB (3):TAB (15):PRINT "------------"
  311. 15210 VTAB (5):PRINT " JUDGE FOR YOUR SELF ON HOW MUCH ARCH   YOU NEED.IT MIGHT TAKE A LITTLE WHILE TOGET USE TO.":PRINT 
  312. 15213 PRINT " YOU CAN USE THE BACKBOARD TO BANK THE  BALL OFF OF BUT BE CAREFULL NOT TO HIT"
  313. 15215 PRINT "THE RIM OF THE HOOP,OR THE TOP OF THE   BACKBOARD,IF YOU DO THE BALL WILL JUST"
  314. 15217 PRINT "BOUNCE OFF.YOU MUST GO THROUGH THE HOOP,HITTING THE NET WILL JUST NOT DO,IT WILLBE COUNTED AS A MISS.IF THE BALL GOES"
  315. 15220 PRINT "THROUGH THE RIM NO TONE WILL BE HEARD,IFIT HITS THE NET OR ANY AREA WHICH IS OUTOF BOUNDS,A TONE WILL BE HEARD.YOU"
  316. 15222 VTAB (18):TAB (35):PRINT " CAN  TELL BY THIS IF YOU ACTUALLY MADE IT OR NOT."
  317. 15225 VTAB (23):PRINT "        PRESS ANY KEY TO CONTINUE"
  318. 15230 IF  PEEK (-16384)<127 THEN 15230: POKE -16368,0
  319. 15235  POKE -16368,0:CALL -936
  320. 15240 VTAB (2):TAB (15):PRINT "INSTRUCTIONS":VTAB (3):TAB (15):PRINT "------------"
  321. 15243 VTAB (5):PRINT " THE FIRST PERSON TO MAKE IT WILL HAVE  AN ADVANTAGE OVER HIS OR HER OPPONENT."
  322. 15244 PRINT 
  323. 15245 PRINT " NO PLAYER WILL EVER BE ALLOWED TO SHOOTFROM THE SAME SPOT TWO CONSECUTIVE TIMESEVEN IF HE OR SHE MISSED THE TIME"
  324. 15247 VTAB (9):TAB (35):PRINT "BEFORE"
  325. 15250 VTAB (16):PRINT "APPLE HORSE WILL NOW BEGIN,IF YOU HAVE  ANY QUESTIONS READ THE INSTRUCTIONS."
  326. 15260 VTAB (23):PRINT "    PRESS ANY KEY TO BEGIN THE GAME"
  327. 15265 IF  PEEK (-16384)<127 THEN 15265: POKE -16368,0
  328. 15270  POKE -16368,0:CALL -936:GOTO 6000
  329. 15300 END 
  330. 17000 FOR DELAY=1 TO 1200:NEXT DELAY
  331. 17001 CALL -936:VTAB (12):PRINT BLU$;", YOU HAVE JUST GOT YOUR":PRINT "LAST LETTER.  WHICH ALSO MEANS YOU HAVE"
  332. 17010 PRINT "JUST LOST THE GAME.":PRINT :PRINT :PRINT :PRINT "WOULD YOU LIKE TO PLAY AGAIN ?"
  333. 17020 IF  PEEK (-16384)=217 THEN PRINT D$;"<CTRL-D>RUN APPLE HORSE":IF  PEEK (-16384)=206 THEN 19000: POKE -16368,0:GOTO 17020
  334. 18000 FOR DELAY=1 TO 900:NEXT DELAY
  335. 18001 CALL -936:VTAB (12):PRINT RED$;", YOU HAVE JUST GOT YOUR":PRINT "LAST LETTER.  WHICH ALSO MEANS YOU HAVE"
  336. 18010 PRINT "JUST LOST THE GAME.":PRINT :PRINT :PRINT :PRINT "WOULD YOU LIKE TO PLAY AGAIN ?"
  337. 18020 IF  PEEK (-16384)=217 THEN PRINT D$;"<CTRL-D>RUN APPLE HORSE":IF  PEEK (-16384)=206 THEN 19000: POKE -16368,0:GOTO 17020
  338. 19000  POKE -16368,0:CALL -936:VTAB (13):TAB (15):PRINT "GOOD GAME":END 
  339. 20000 REM  FLIP FOR GOING FIRST
  340. 20005 TEXT :CALL -936
  341. 20010 VTAB (4):PRINT "A COIN WILL BE TOSSED TO SEE WHO WILL   HAVE THE FIRST SHOT."
  342. 20020 VTAB (9):PRINT "IF THE COIN IS HEADS, ";RED$:PRINT "WILL HAVE THE FIRST SHOT."
  343. 20030 PRINT :PRINT "IF THE COIN IS TAILS, ";BLU$:PRINT "WILL HAVE THE FIRST SHOT."
  344. 20040 VTAB (17):PRINT "WHEN YOU ARE READY, PRESS ANY KEY FOR   THE TOSS OF THE COIN."
  345. 20041 IF  PEEK (-16384)<127 THEN 20041: POKE -16368,0
  346. 20045 VTAB (20):TAB (13):PRINT "THE TOSS IS ":FOR DELAY=1 TO 450:NEXT DELAY:E= RND (2)+1:IF E=1 THEN 20060
  347. 20047 VTAB (20):TAB (26):PRINT "HEADS."
  348. 20050 VTAB (22):PRINT RED$;", YOU WILL HAVE THE FIRST SHOT."
  349. 20055 GOTO 20099
  350. 20060 VTAB (20):TAB (26):PRINT "TAILS.":VTAB (22):PRINT BLU$;", YOU WILL HAVE THE FIRST SHOT."
  351. 20099 FOR DELAY=1 TO 900:NEXT DELAY
  352. 20100 FOR DELAY=1 TO 250:NEXT DELAY:CALL -936:VTAB (17):TAB (4):PRINT "GOOD LUCK AND GOOD SHOOTING.":FOR DELAY=1 TO 75:NEXT DELAY
  353. 20109 FOR DELAY=1 TO 700:NEXT DELAY
  354. 20110 IF E=1 THEN 8030:GOTO 6030
  355. 30000 RS=RS+1
  356. 30005 BB=0:AA=0
  357. 30006 BT=0:RT=0
  358. 30010 GOTO 8030
  359. 30020 BS=BS+1
  360. 30025 BB=0:AA=0
  361. 30026 BT=0:RT=0
  362. 30030 GOTO 6030
  363. 31000 REM ************************
  364. 31010 REM 
  365. 31020 REM     * APPLE HORSE *
  366. 31030 REM 
  367. 31040 REM  DONATED TO APPLE PI BY
  368. 31050 REM    DANIEL E. MINARDI
  369. 31060 REM       JULY, 1980
  370. 31070 REM 
  371. 31080 REM ************************
  372.